home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / -seriously_amiga- / shareware / hardware / ide-fix / installdocs < prev    next >
Text File  |  1997-12-06  |  1KB  |  66 lines
  1. ;$VER: IDEfix Documentation Install 48.7 (03.09.97)
  2. ;Copyright ©1997 Elaborate Bytes, Oliver Kastl
  3.  
  4. (onerror
  5.     (makeassign "DocsInst" (safe))
  6.     (makeassign "Docs" (safe))
  7. )
  8.  
  9.  
  10. (complete 0)
  11.  
  12. (makeassign "DocsInst" "" ( safe) )
  13.  
  14.  
  15. (set #DefaultDir (tackon @default-dest "IDEfix97"))
  16.  
  17. (set #theirlevel @user-level )
  18.  
  19. (user 2)
  20.  
  21. (set #DocsDir
  22.     (askdir
  23.         (prompt "\n\nSpecify the directory in where the Docs directory shall be created:" )
  24.         (help "\n\nSpecify the directory in where the Docs directory shall be created." )
  25.         (default #DefaultDir)
  26.         (newpath)
  27.     )
  28. )
  29.  
  30. (complete 45)
  31.  
  32. (user #theirlevel)
  33.  
  34. (if (NOT (exists #DocsDir ))
  35.     (
  36.     (makedir #DocsDir
  37.         (safe)
  38.         (infos)
  39.     )
  40.     )
  41. )
  42.  
  43. (set @default-dest #DocsDir)
  44.  
  45.  
  46. (makeassign "Docs" #DocsDir (safe))
  47.  
  48. (complete 50)
  49.  
  50. (working "\n\nDecrunching Documentation...."
  51.          "\n\nPlease Wait!")
  52.  
  53.     ( if (NOT @pretend )
  54.     (( if ( run "DocsInst:c/lhex -afFqw=Docs: e DocsInst:Docs.lha" )
  55.         (
  56.         (abort "\n\nUnable to decrunch documentation!")
  57.         )
  58.     )))
  59.  
  60.  
  61. (complete 100)
  62.  
  63. (makeassign "DocsInst" (safe))
  64. (makeassign "Docs" (safe))
  65.  
  66.